home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / sources.exe / SOURCES / HERSHEY / MAKESAMP.S < prev    next >
Encoding:
Text File  |  1993-03-25  |  228 b   |  9 lines
  1. (define str (read (open-input-string (cadr pcs-initial-arguments))))
  2. (writeln str)
  3. (load "hershey.fsl")
  4. (install-user-driver "PS")
  5. (init-graph 'ps 7)
  6. (set-text-justify 'RIGHT 'BOTTOM)
  7. (out-hershey str '(0 . 180))
  8. (exit)
  9.